home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok24.lha / DME / rexmacs / save.dme < prev    next >
Text File  |  1993-08-15  |  487b  |  16 lines
  1. /*   Saves the file with the filename specified by the 1st argument.   */
  2. /*   If no name is specified, the file is saved with it's original     */
  3. /*   filename.  Arguments following the 1st one are ignored.           */
  4. /*                                                                     */
  5. /*   Kim DeVaughn  12/21/87                                            */
  6.  
  7. options failat 5
  8. rc = 0
  9.  
  10. parse arg filename junk
  11. if filename = ""
  12.    then saveold
  13.    else saveas  filename
  14. exit rc
  15.  
  16.